perm filename TEST.MUS[T,LCS] blob sn#017503 filedate 1972-12-24 generic text, type T, neo UTF8
ARRAY FOO(512),BAZ(512);
SYNTH(FOO);
1,1,0,0
999
SYNTH(BAZ);
.5,1,0,0,999
COMPILE;

INSTRUMENT A1;
PRINT "A1 ";
OSCIL[10](P4,10*(512/SRATE)/P2,BAZ);
OSCIL(U1,P3*512/SRATE,FOO);
OUTD←OUTC←OUTB←OUTA←OUTA+U2;
END;
FINISH;
PLAY;
A1 0 1 440 1000;
A1 1 1 550 1000;
A1 2 2 660 800;
A1 4 1 440 800;
FINISH;